object Freceber: TFreceber
  Left = 320
  Top = 161
  Width = 979
  Height = 586
  Caption = 'Controle de Honor'#225'rios'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 1
    Top = 0
    Width = 967
    Height = 523
    DataSource = DsReceber
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'VENCTO'
        Title.Caption = 'Vencimento'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CLIENTE'
        Title.Caption = 'Cliente'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DOCUMENTO'
        Title.Caption = 'Documento'
        Width = 400
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR'
        Title.Alignment = taCenter
        Title.Caption = 'Valor'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RECBTO'
        Title.Caption = 'Recebimento'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RECBDO'
        Title.Caption = 'Recebido'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OBS'
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 594
    Top = 525
    Width = 75
    Height = 25
    Caption = '&Incluir'
    TabOrder = 1
  end
  object Button2: TButton
    Left = 670
    Top = 525
    Width = 75
    Height = 25
    Caption = '&Alterar'
    TabOrder = 2
  end
  object Button3: TButton
    Left = 745
    Top = 525
    Width = 75
    Height = 25
    Caption = '&Excluir'
    TabOrder = 3
  end
  object Button4: TButton
    Left = 820
    Top = 525
    Width = 75
    Height = 25
    Caption = '&Relat'#243'rios'
    TabOrder = 4
  end
  object Button5: TButton
    Left = 895
    Top = 525
    Width = 75
    Height = 25
    Caption = '&Sair'
    TabOrder = 5
    OnClick = Button5Click
  end
  object DsReceber: TDataSource
    DataSet = CReceber
    Left = 56
    Top = 56
  end
  object CReceber: TQuery
    Active = True
    SQL.Strings = (
      'select * from receber order by vencto')
    Left = 56
    Top = 96
    object CReceberVENCTO: TDateField
      FieldName = 'VENCTO'
    end
    object CReceberCLIENTE: TFloatField
      FieldName = 'CLIENTE'
    end
    object CReceberDOCUMENTO: TStringField
      FieldName = 'DOCUMENTO'
      Size = 80
    end
    object CReceberVALOR: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = '###,##0.00'
    end
    object CReceberRECBTO: TDateField
      FieldName = 'RECBTO'
    end
    object CReceberRECBDO: TFloatField
      FieldName = 'RECBDO'
      DisplayFormat = '###,##0.00'
    end
    object CReceberOBS: TStringField
      FieldName = 'OBS'
      Size = 250
    end
  end
  object Receber: TTable
    Active = True
    FieldDefs = <
      item
        Name = 'VENCTO'
        DataType = ftDate
      end
      item
        Name = 'CLIENTE'
        DataType = ftFloat
      end
      item
        Name = 'DOCUMENTO'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'VALOR'
        DataType = ftFloat
      end
      item
        Name = 'RECBTO'
        DataType = ftDate
      end
      item
        Name = 'RECBDO'
        DataType = ftFloat
      end
      item
        Name = 'OBS'
        DataType = ftString
        Size = 250
      end>
    StoreDefs = True
    TableName = 'RECEBER.DBF'
    Left = 152
    Top = 40
    object ReceberVENCTO: TDateField
      FieldName = 'VENCTO'
    end
    object ReceberCLIENTE: TFloatField
      FieldName = 'CLIENTE'
    end
    object ReceberDOCUMENTO: TStringField
      FieldName = 'DOCUMENTO'
      Size = 80
    end
    object ReceberVALOR: TFloatField
      FieldName = 'VALOR'
    end
    object ReceberRECBTO: TDateField
      FieldName = 'RECBTO'
    end
    object ReceberRECBDO: TFloatField
      FieldName = 'RECBDO'
    end
    object ReceberOBS: TStringField
      FieldName = 'OBS'
      Size = 250
    end
  end
end
